home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / basic / EFMUILibSrc.lha / EFMUILibSrc / ln.asc < prev    next >
Text File  |  1998-02-03  |  409b  |  32 lines
  1. ;ln.bb2 --- Lib Number
  2. ;
  3. ;(c) 1997/98 Vivid Imagination
  4.  
  5. If NumPars<>1 Then End
  6.  
  7. l$=Par$(1)
  8.  
  9. If ReadFile(0,l$)
  10.   FileSeek 0,0
  11.   Fields 0,n.b
  12.   Get 0,37
  13.   CloseFile 0
  14.   Select -1
  15.   Case n<10
  16.     n$="000"+Str$(n)
  17.   Case (n<100 AND n>9)
  18.     n$="00"+Str$(n)
  19.   Case (n<1000 AND n>99)
  20.     n$="0"+Str$(n)
  21.   Case (n<10000 AND n>999)
  22.     n$=Str$(n)
  23.   End Select
  24.   Print n$
  25. Else
  26.   Print "Lib not found!!!"
  27. EndIf
  28.  
  29. End
  30.  
  31.  
  32.